5 HOME
6 REM COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC.
7 REM ALL RIGHTS RESERVED.
8 PRINT "COPYRIGHT 1987" : PRINT "COMPUTE! PUBLICATIONS, INC.": PRINT "ALL RIGHTS RESERVED."
9 FOR X = 0 TO 1200: NEXT : FOR X = 0 TO 15: READ A: POKE X + 768, A: NEXT
10 HGR 3
20 DOUBLE
30 HPLOT 0,0 TO 559,159
40 HCOLOR= 3: HPLOT 0,0: HCOLOR= 0
50 A = 768
60 FOR S = 1 TO 20
70 SHAPE 8,8,A
80 NEXT
100 DATA 127,0,65,0,65,0,65,0,65,0,65,0,127,0,0
105 DATA 0
200 REM DRAW CIRCLES
210 HPLOT 280,96
220 HCOLOR= 3: HPLOT 280,96:HCOLOR= 0: REM SET MIDDLE
225 REM /ELLIPSE/ WITHOUT "AT X,Y" IS FASTER
230 FOR X = 1 TO 90 STEP 8
240 ELLIPSE X * 2,X,15
260 NEXT
300 HOME : VTAB 21
310 PRINT "THIS IS A SIMPLE DEMO OF THE NEW GRAPHICS COMMANDS
320 PRINT TAB(10)"AT THE UPPER LEFTHAND CORNER OF THE SCREEN IS THE OUTPUT OF /SHAPE/"
330 PRINT TAB(10)"THE CIRCLES ARE ACTUALLY ELLIPSES, PRODUCED BY /ELLIPSE/"
340 PRINT TAB(10)"AND THE LINE IS DRAW BY HPLOT... HIT <RETURN>";
350 GET A$
360 HOME : VTAB 21
370 HGR 3
380 PRINT "IN /COLOR/, THINGS LOOK LIKE THIS:"
390 COLOR
400 FOR X = 0 TO 15: COLOR= X
410 HPLOT 0,0 TO 30 * X,150
420 NEXT
430 COLOR= 12: REM BLUE
440 ELLIPSE 250,70,15 AT 280,80
450 PRINT TAB(8) "NOTE, THOUGH, THAT THE /SHAPE/ COMMAND WORKS ON THE BIT LEVEL."
460 PRINT TAB(8) "/SHAPE/ AFFECTS TWO ADJACENT BYTES OF VIDEO RAM PER 14-BIT LINE"
465 PRINT TAB(8) "ANO WAS ORIGINALLY INTENDED FOR MONOCHROME DRAWING ONLY";
470 PRINT "   HIT <RETURN>";:GET A$
480 TEXT : HOME
